home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Eagles Nest BBS 4
/
Eagles_Nest_Mac_Collection_Disc_4.TOAST
/
Desktop Publishing
/
DTPAdv10
/
DTP Database
/
card_8980.txt
< prev
next >
Wrap
Text File
|
1988-09-02
|
10KB
|
484 lines
-- card: 8980 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2779
-- name: masterWriters
----- HyperTalk script -----
on opencard
put field "one" of card masterwriters into field "one"
put field "two" of card masterwriters into field "two"
put field "three" of card masterwriters into field "three"
put field "four" of card masterwriters into field "four"
end opencard
on closefield
set cursor to watch
lock screen
push card
go card main
click at the loc of card button "writer"
pop card
unlock screen
end closefield
-- part 7 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=16 top=180 right=196 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: a
-- part 8 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=16 top=195 right=211 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: b
-- part 9 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=16 top=210 right=226 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: c
-- part 10 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=16 top=225 right=241 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: d
-- part 11 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=16 top=240 right=256 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: e
-- part 12 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=16 top=255 right=271 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: f
-- part 23 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=136 top=180 right=196 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: g
-- part 24 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=374 top=195 right=211 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t
-- part 25 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=374 top=210 right=226 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: u
-- part 26 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=374 top=225 right=241 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: v
-- part 27 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=374 top=240 right=256 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: w
-- part 28 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=374 top=255 right=271 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: x
-- part 29 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=136 top=195 right=211 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: h
-- part 30 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=136 top=210 right=226 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: i
-- part 31 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=136 top=225 right=241 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: j
-- part 32 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=136 top=240 right=256 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: k
-- part 33 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=136 top=255 right=271 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: l
-- part 34 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=252 top=180 right=196 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: m
-- part 35 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=252 top=195 right=211 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: n
-- part 36 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=252 top=210 right=226 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: o
-- part 37 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=252 top=225 right=241 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: p
-- part 38 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=252 top=240 right=256 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q
-- part 39 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=252 top=255 right=271 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: r
-- part 40 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=374 top=180 right=196 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: s
-- part 48 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=367 top=135 right=151 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Hire/Bid
----- HyperTalk script -----
on mouseUp
global copyform
if copyform is "DTP Master Forms" then
whatform
exit mouseup
end if
set cursor to 4
put the short name of this card into cname
put field "name" into contactname
answer "Hire or bid this person?" with "Hire" or "Bid" or "Cancel"
if it is "cancel" then
exit mouseup
else if it is "Bid" then
push card
go card "writer bids" of stack copyform
put 1 into x
repeat for 3
if card field x is empty then
put contactname into card field x
exit mouseup
else
put 1+x into x
end if
end repeat
answer "Replace contents of last field." with "OK" or "Cancel"
if it is "OK" then
put contactname into card field 3
end if
else if it is "hire" then
push card
go card "project management form" of stack copyform
if card field "writername" is empty then
put contactname into card field writername
else
answer "The space is full. OK to replace?" with "Cancel" or "OK"
if it is "ok" then
put contactname into card field writername
end if
end if
end if
--set lockscreen to false
set cursor to 1
end mouseUp
-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=411 top=0 right=19 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global soundstatus, doipop
put "true" into doipop
if soundstatus is "on" then
Play harpsichord qr e6t d c
end if
Visual effect wipe down
go card main
end mouseUp
-- part contents for background part 31
----- text -----
Company
Contact
Address
City, State, Zip
Phone Number
-- part contents for background part 1
----- text -----
Public Relations
Advertising
Brochures
Newsletters
Annual Reports
-- part contents for background part 4
----- text -----
Hard Copy
Macintosh Disk
IBM PC Disk
Other
-- part contents for background part 6
----- text -----
Low Cost
Medium Cost
High Cost
-- part contents for background part 40
----- text -----
WRITER
-- part contents for background part 47
----- text -----
Master Form